home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / survivor.rdc < prev    next >
Text File  |  1989-04-28  |  528b  |  27 lines
  1. ; SURVIVOR - a defensive warrior
  2. ; by maz spork - use against IMPs
  3. ;
  4. signat    equ    42*42
  5. proglen    equ    last-start
  6. hdroom    equ    50            ; headroom to pickets
  7. ;
  8. source    dat    0
  9. ;
  10. start    mov    #signat, @low
  11.     mov    #signat, @high
  12.     mov    #proglen, source
  13. ;
  14. check    cmp    #signat, @low
  15. low    jmp    relocf, hdroom
  16.     cmp    #42*42, @high
  17. high    jmp    relocb, -hdroom
  18. destin    jmp    check, 0
  19. ;
  20. relocb    mov    #-2*hdroom, destin
  21.     jmp    relocat
  22. relocf    mov    #2*hdroom+proglen, destin    
  23. relocat    mov    @source, <destin
  24.     djn    relocat, source
  25.     jmp    @destin, 12345
  26. last
  27.